home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / MAP.dir / 00046.ls < prev    next >
Encoding:
Text File  |  1999-04-08  |  908 b   |  35 lines
  1. on idle
  2.   global gCursorReady
  3.   if gCursorReady = 1 then
  4.     cursor(200)
  5.     checkCursors()
  6.     set the locH of sprite 48 to the mouseH
  7.     set the locV of sprite 48 to the mouseV
  8.     updateStage()
  9.   end if
  10. end
  11.  
  12. on checkCursors
  13.   global gMagCursor
  14.   set the castNum of sprite 48 to the number of member "curs1"
  15.   repeat with i = 2 to 8
  16.     if rollOver(i) then
  17.       set the castNum of sprite 48 to the number of member "hotCursor"
  18.     end if
  19.   end repeat
  20.   repeat with i = 12 to 19
  21.     if rollOver(i) then
  22.       set the castNum of sprite 48 to the number of member "hotCursor"
  23.     end if
  24.   end repeat
  25.   if rollOver(23) then
  26.     set the castNum of sprite 48 to the number of member "hotCursor"
  27.   end if
  28.   if rollOver(46) then
  29.     set the castNum of sprite 48 to the number of member "hotCursor"
  30.   end if
  31.   if rollOver(47) then
  32.     set the castNum of sprite 48 to the number of member "hotCursor"
  33.   end if
  34. end
  35.